|
1500
|
How can I add a Zero-Lenght bar
OleObject oG2antt,var_Chart,var_Columns,var_Items
any h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Columns.Add("Start").Def(18,1)
var_Columns.Add("End").Def(18,2)
var_Columns.Add("Duration").Def(18,258)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2010-09-20
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Chart.AllowLinkBars = false
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
h1 = var_Items.AddItem("M1")
var_Items.AddBar(h1,"Milestone",2010-09-29,2010-09-29)
var_Items.ItemBar(h1,"",20,true)
oG2antt.EndUpdate()
|
|
1499
|
Can I use bars like Milestone (Zero-Length bar) in SchedulePDM
/*begin event BarResizing(long Item,any Key) - Occurs when a bar is moving or resizing.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( String(oG2antt.Items.SchedulePDM(Item,Key)) ))
*/
/*end event BarResizing*/
OleObject oG2antt,var_Chart,var_Columns,var_ConditionalFormat,var_ConditionalFormat1,var_Items
any h1,h2,h3,h4
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Columns.Add("Start").Def(18,1)
var_Columns.Add("End").Def(18,543)
var_Columns.Add("Duration").Def(18,258)
var_ConditionalFormat = oG2antt.ConditionalFormats.Add("%3")
var_ConditionalFormat.Bold = true
var_ConditionalFormat.ApplyTo = -1
var_ConditionalFormat1 = oG2antt.ConditionalFormats.Add("%3 = 0")
var_ConditionalFormat1.ForeColor = RGB(196,196,196)
var_ConditionalFormat1.ApplyTo = 3 /*0x3 | */
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2010-09-20
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
h1 = var_Items.AddItem("M1")
var_Items.AddBar(h1,"Milestone",2010-09-27,2010-09-27)
var_Items.ItemBar(h1,"",20,true)
h2 = var_Items.AddItem("T1")
var_Items.AddBar(h2,"Task",2010-09-27,2010-09-27)
var_Items.ItemBar(h2,"",543,2010-09-27)
var_Items.ItemBar(h2,"",20,true)
var_Items.AddLink("L1",h1,"",h2,"")
h3 = var_Items.AddItem("T2")
var_Items.AddBar(h3,"Task",2010-09-27,2010-09-27)
var_Items.ItemBar(h3,"",543,2010-09-27)
var_Items.ItemBar(h3,"",20,true)
var_Items.AddLink("L2",h1,"",h3,"")
var_Items.Link("L2",16,5)
h4 = var_Items.AddItem("M3")
var_Items.AddBar(h4,"Milestone",2010-09-27,2010-09-27)
var_Items.ItemBar(h4,"",20,false)
var_Items.AddLink("L3",h1,"",h4,"")
var_Items.Link("L3",16,5)
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
1498
|
How can I prevent vertical scrolling when user clicks the overview part of the control
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/
OleObject oG2antt,rs,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 1994-08-03
var_Chart.PaneWidth(false,256)
var_Chart.LevelCount = 2
var_Chart.UnitScale = 4096
var_Chart.FirstWeekDay = 1
var_Chart.OverviewVisible = 2
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Items.AllowCellValueToItemBar = true
oG2antt.Columns.Item(2).Def(18,1)
oG2antt.Columns.Item(4).Def(18,2)
oG2antt.EndUpdate()
|
|
1497
|
I need to specify the start and end dates of the bar to be the same, but no bars are shown. (recommended for bars with exBarKeepWorkingCount ) What I can do
OleObject oG2antt,var_Chart,var_Columns,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Columns.Add("Start").Def(18,1)
var_Columns.Add("End").Def(18,543)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2006-09-20
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Chart.ShowEmptyBars = 0
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2006-09-21,2006-09-21)
var_Items.ItemBar(h,"",543,var_Items.ItemBar(h,"",1))
var_Items.ItemBar(h,"",20,true)
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2006-09-21,2006-09-21)
var_Items.ItemBar(h,"",543,2006-09-25)
var_Items.ItemBar(h,"",20,true)
oG2antt.EndUpdate()
|
|
1496
|
How can I display the end date to be the last visible date of task, instead the next day
/*begin event BarResize(long Item,any Key) - Occurs when a bar is moved or resized.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.SchedulePDM(Item,Key)
*/
/*end event BarResize*/
/*begin event BarResizing(long Item,any Key) - Occurs when a bar is moving or resizing.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.SchedulePDM(Item,Key)
*/
/*end event BarResizing*/
OleObject oG2antt,var_Chart,var_Column,var_Columns,var_ConditionalFormat,var_Items
any h1,h2
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
oG2antt.HeaderHeight = 36
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Columns.Add("Start").Def(18,1)
var_Column = var_Columns.Add("End")
var_Column.HTMLCaption = "<b>End</b><br>Inclusive"
var_Column.Def(18,543)
var_Column.Editor.EditType = 7
var_Columns.Add("End").Def(18,2)
var_ConditionalFormat = oG2antt.ConditionalFormats.Add(String(1))
var_ConditionalFormat.Bold = true
var_ConditionalFormat.ApplyTo = 2 /*0x2 | */
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2006-09-20
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2006-09-21,2006-09-23)
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2006-09-21,2006-09-26)
var_Items.AddLink("link",h1,"",h2,"")
var_Items.ItemBar(0,"<*>",20,true)
var_Items.SchedulePDM(0,"")
oG2antt.EndUpdate()
|
|
1495
|
How do I hide the selection
OleObject oG2antt,var_Column,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
oG2antt.SelForeColor = oG2antt.ForeColor
oG2antt.SelBackColor = oG2antt.BackColor
oG2antt.ShowFocusRect = false
var_Columns = oG2antt.Columns
var_Column = var_Columns.Add("Format")
var_Column.FormatColumn = "type(value) in (0,1) ? 'null' : ( dbl(value)<0 ? '<fgcolor=FF0000>'+ (value format '2|.|3|,|1' ) : (dbl(value)>0 ? '<fgcolor=0000FF>+'+(value format '2|.|3|,' ): '0.00') )"
var_Column.Def(17,1)
var_Items = oG2antt.Items
var_Items.AddItem(10)
var_Items.AddItem(-8)
oG2antt.EndUpdate()
|
|
1494
|
How do I access the cells, or how do I get the values in the columns
OleObject oG2antt,var_Columns,var_Items
any h
oG2antt = ole_1.Object
var_Columns = oG2antt.Columns
var_Columns.Add("C1")
var_Columns.Add("C2")
var_Columns.Add("C3")
var_Items = oG2antt.Items
h = var_Items.AddItem("Item 1")
var_Items.CellValue(h,1,"SubItem 1.1")
var_Items.CellValue(h,2,"SubItem 1.2")
MessageBox("Information",string( String(var_Items.CellValue(h,1)) ))
|
|
1493
|
Is there any function I can use to indicate the Now() when using the ComputedFields, CondtionalFormats, ...
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Columns.Add("Now").ComputedField = "date(``)"
oG2antt.Items.AddItem("")
|
|
1492
|
How can I get the start and end points of the bar once the BarResize event occurs
/*begin event BarResize(long Item,any Key) - Occurs when a bar is moved or resized.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( "Start: " ))
MessageBox("Information",string( String(oG2antt.Items.ItemBar(Item,Key,1)) ))
MessageBox("Information",string( "End: " ))
MessageBox("Information",string( String(oG2antt.Items.ItemBar(Item,Key,2)) ))
*/
/*end event BarResize*/
OleObject oG2antt,var_Bar,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2009-12-31
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,96)
var_Bar = var_Chart.Bars.Item("Task")
oG2antt.Columns.Add("Types")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2010-01-04,2010-01-09,"")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2010-01-04,2010-01-09,"")
oG2antt.EndUpdate()
|
|
1491
|
My chart displays hours, the question would be if possible to let user resizes the bars up to 1/2 hour, or a half an hour
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 1
var_Chart.LevelCount = 2
var_Chart.UnitScale = 65536
var_Chart.ResizeUnitScale = 1048576
var_Chart.ResizeUnitCount = 30
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.DrawGridLines = -1
var_Chart.Level(1).DrawGridLines = true
var_Items = oG2antt.Items
var_Items.AddItem("Task")
var_Items.AddItem("Task")
var_Items.AddItem("Task")
var_Items.AddItem("Task")
var_Items.AddItem("Task")
oG2antt.EndUpdate()
|
|
1490
|
How can I show the dates in the title
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2002-12-30
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,0)
var_Chart.UnitScale = 65536
var_Chart.DrawGridLines = -1
var_Chart.Level(0).Alignment = 17 /*exHOutside | CenterAlignment*/
oG2antt.EndUpdate()
|
|
1489
|
If I vertically scroll the control the image flows fluently. But when I scroll on the horizontal chart's scrollbar the images only shows after I release the click button. Can I make it scroll fluently like the vertical scrollbar
OleObject oG2antt
oG2antt = ole_1.Object
oG2antt.Chart.PaneWidth(false,0)
oG2antt.Chart.ToolTip = ""
|
|
1488
|
How can I programmatically add a bar during the CreateBar event
/*begin event CreateBar(long Item,datetime DateStart,datetime DateEnd) - Fired when the user creates a new bar.*/
/*
OleObject var_Items
any k
oG2antt = ole_1.Object
var_Items = oG2antt.Items
k = var_Items.ItemBar(Item,"",256)
var_Items.AddBar(Item,"Order",DateStart,DateEnd,k,"your text")
MessageBox("Information",string( String(oG2antt.Items.ItemBar(Item,"",256)) ))
*/
/*end event CreateBar*/
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = -1
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.LevelCount = 2
var_Chart.Bars.Copy("Task","Order")
var_Items = oG2antt.Items
var_Items.AddItem(1)
var_Items.AddItem(2)
var_Items.AddItem(3)
oG2antt.EndUpdate()
|
|
1487
|
How can I move more bars by code
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,48)
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-01,2001-01-06,"A")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-07,"B")
var_Items.ItemBar(0,"<*>",514,1)
var_Items.ItemBar(0,"<A*>",514,1)
var_Items.ItemBar(0,"<B*>",514,1)
|
|
1486
|
How can I move a bar by code
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,48)
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-01,2001-01-06,"A")
var_Items.ItemBar(h,"A",514,1)
|
|
1485
|
How can I clip the notes to the items zone only
OleObject oG2antt,var_Chart,var_Items,var_Note,var_Notes
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oG2antt.AntiAliasing = true
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,96)
var_Chart.LevelCount = 2
var_Items = oG2antt.Items
var_Items.AddItem()
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-05,2001-01-08,"1")
var_Notes = oG2antt.Chart.Notes
var_Note = var_Notes.Add("1",oG2antt.Items.ItemByIndex(1),"1","<img>2</img>")
var_Note.PartShadow(1,false)
var_Note.PartBorderSize(1,0)
var_Note.ClearPartBackColor(1)
var_Note.PartCanMove(1,true)
var_Note.RelativePosition = 0.5
var_Note.PartVOffset(1,-36)
var_Notes.ClipTo = 2
oG2antt.EndUpdate()
|
|
1484
|
How can I put two bars of various types, in the event of conflict do not coincide
OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h,h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.Columns.Add("Task")
oG2antt.ScrollBySingleLine = true
oG2antt.BackColorAlternate = RGB(240,240,240)
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 515 /*exOverlaidBarsStackAutoArrange | exOverlaidBarsStack*/
var_Bar.OverlaidGroup = "NewTask"
var_Bar1 = var_Chart.Bars.Copy("Task","NewTask")
var_Bar1.OverlaidType = 515 /*exOverlaidBarsStackAutoArrange | exOverlaidBarsStack*/
var_Bar1.OverlaidGroup = "Task"
var_Bar1.Color = RGB(255,0,0)
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Default")
h = var_Items.AddItem("Overlaid")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A1","A1")
var_Items.AddBar(h,"NewTask",2001-01-03,2001-01-05,"A2","A2")
var_Items.AddBar(h,"NewTask",2001-01-04,2001-01-07,"A3","A3")
var_Items.AddBar(h,"Task",2001-01-04,2001-01-07,"A4","A4")
h1 = var_Items.AddItem("Default")
oG2antt.EndUpdate()
|
|
1483
|
How can I run trigger an event which, after clicking on the item/bar gives the key/name or item id
/*begin event MouseDown(integer Button,integer Shift,long X,long Y) - Occurs when the user presses a mouse button.*/
/*
any item,key
oG2antt = ole_1.Object
item = oG2antt.ItemFromPoint(-1,-1,column,hit)
key = oG2antt.Chart.BarFromPoint(-1,-1)
MessageBox("Information",string( "Item:" ))
MessageBox("Information",string( String(item) ))
MessageBox("Information",string( "Key:" ))
MessageBox("Information",string( String(key) ))
MessageBox("Information",string( "CellValue(i,0):" ))
MessageBox("Information",string( String(oG2antt.Items.CellValue(item,0)) ))
oG2antt.Items.ItemBar(item,key,33,255)
*/
/*end event MouseDown*/
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-29
var_Chart.PaneWidth(false,64)
var_Chart.LevelCount = 2
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-04,2001-01-06,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
oG2antt.EndUpdate()
|
|
1482
|
How can I change the check-boxes appearance
OleObject oG2antt,var_Appearance,var_Column,var_Items
any h
oG2antt = ole_1.Object
oG2antt.LinesAtRoot = -1
var_Column = oG2antt.Columns.Add("Default")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Items = oG2antt.Items
h = var_Items.AddItem("Root")
var_Items.InsertItem(h,,"Child 1")
var_Items.InsertItem(h,,"Child 2")
var_Items.ExpandItem(h,true)
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"XP:Button 3 12")
var_Appearance.Add(2,"XP:Button 3 11")
var_Appearance.Add(3,"XP:Button 3 10")
oG2antt.CheckImage(0,16777216)
oG2antt.CheckImage(1,33554432)
oG2antt.CheckImage(2,50331648)
|
|
1481
|
How can I change the color for the control's split bar (sample 1)
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Default")
oG2antt.Background(18,RGB(0,0,1))
oG2antt.BackColorLevelHeader = oG2antt.BackColor
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,64)
var_Chart.HistogramVisible = true
var_Chart.HistogramHeight = 64
var_Chart.OverviewHeight = 48
var_Chart.OverviewVisible = -1
oG2antt.EndUpdate()
|
|
1480
|
Is it possible to display ONLY the working hours
OleObject oG2antt,var_Chart,var_Level,var_Level1
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Level = var_Chart.Level(0)
var_Level.Label = 4096
var_Level.Alignment = 17 /*exHOutside | CenterAlignment*/
var_Level1 = var_Chart.Level(1)
var_Level1.Label = "<%hh%>"
var_Level1.Count = 6
var_Chart.UnitWidth = 26
var_Chart.PaneWidth(false,0)
var_Chart.NonworkingHours = 15728895
var_Chart.ShowNonworkingUnits = false
var_Chart.ShowNonworkingHours = false
|
|
1479
|
How can I display the end of the day in the chart's header
OleObject oG2antt,var_Chart,var_Level,var_Level1
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Level = var_Chart.Level(0)
var_Level.Label = 4096
var_Level.Alignment = 17 /*exHOutside | CenterAlignment*/
var_Level1 = var_Chart.Level(1)
var_Level1.Label = "<%hh%>"
var_Level1.Count = 6
var_Level1.ReplaceLabel("08","<b>8</b> <font ;6>am")
var_Level1.ReplaceLabel("14","<b>8</b> <font ;6>pm")
var_Chart.UnitWidth = 26
var_Chart.PaneWidth(false,0)
var_Chart.NonworkingHours = 15728895
var_Chart.ShowNonworkingUnits = false
var_Chart.ShowNonworkingHours = false
|
|
1478
|
How can I display the +/- expanding buttons in the chart section
OleObject oG2antt,var_Chart,var_Column,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.LinesAtRoot = -1
oG2antt.Indent = 13
oG2antt.HasButtons = 3
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2010-12-25
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,0)
var_Chart.ColumnsFormatLevel = "0"
var_Chart.SelBackColor = oG2antt.SelBackColor
var_Chart.SelForeColor = oG2antt.SelForeColor
var_Column = oG2antt.Columns.Add("P1")
var_Column.Def(0,true)
var_Column.PartialCheck = true
var_Items = oG2antt.Items
h = var_Items.AddItem("Root")
var_Items.AddBar(var_Items.InsertItem(h,,"Child 1"),"Task",2011-01-02,2011-01-05)
var_Items.AddBar(var_Items.InsertItem(h,,"Child 2"),"Task",2011-01-04,2011-01-07)
var_Items.AddBar(var_Items.InsertItem(h,,"Child 3"),"Task",2011-01-07,2011-01-08)
var_Items.ExpandItem(h,true)
oG2antt.EndUpdate()
|
|
1477
|
Is it possible to display the columns in the chart aligned to the right
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Key")
var_Column.Def(18,0)
var_Column.Visible = false
var_Column.Alignment = 2
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-30
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,0)
var_Chart.ColumnsFormatLevel = "|,1:52"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Split",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Progress",2001-01-03,2001-01-07)
oG2antt.EndUpdate()
|
|
1476
|
How can I display a border in the chart
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Key")
var_Column.Def(18,0)
var_Column.Visible = false
var_Column.Alignment = 1
var_Column.Def(5,255)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-30
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,0)
var_Chart.ColumnsFormatLevel = "1:52,\" + CHAR(34) + "\" + CHAR(34) + "[bg=255]:2"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Split",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Progress",2001-01-03,2001-01-07)
oG2antt.EndUpdate()
|
|
1475
|
How can I change the font to display the columns in the chart (Method 2)
OleObject oG2antt,var_Chart,var_Column,var_ConditionalFormat,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Key")
var_Column.Def(18,0)
var_Column.Visible = false
var_ConditionalFormat = oG2antt.ConditionalFormats.Add(String(1))
var_ConditionalFormat.Bold = true
var_ConditionalFormat.ApplyTo = 1 /*0x1 | */
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-30
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,48)
var_Chart.ColumnsFormatLevel = "1"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Split",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Progress",2001-01-03,2001-01-07)
oG2antt.EndUpdate()
|
|
1474
|
How can I change the font to display the columns in the chart (Method 1)
OleObject oG2antt,var_Chart,var_Column,var_Items,var_StdFont
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 24
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Key")
var_Column.Def(18,0)
var_Column.Visible = false
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-30
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,48)
var_Chart.ColumnsFormatLevel = "1"
var_Chart.ColumnsFont = oG2antt.Font
var_StdFont = var_Chart.ColumnsFont
var_StdFont.Size = 12
var_StdFont.Name = "Tahoma"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Split",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Progress",2001-01-03,2001-01-07)
oG2antt.EndUpdate()
|
|
1473
|
How can I change the column's background color when it is displayed on the chart (Method 2)
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Key")
var_Column.Def(18,0)
var_Column.Visible = false
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-30
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,48)
var_Chart.ColumnsFormatLevel = "1[bg=255]:52"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Split",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Progress",2001-01-03,2001-01-07)
oG2antt.EndUpdate()
|
|
1472
|
How can I change the column's background color when it is displayed on the chart (Method 1)
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Key")
var_Column.Def(18,0)
var_Column.Visible = false
var_Column.Def(4,15790320)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-30
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,48)
var_Chart.ColumnsFormatLevel = "1:52"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Split",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Progress",2001-01-03,2001-01-07)
oG2antt.EndUpdate()
|
|
1471
|
Can the chart display any column
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Start")
var_Column.Def(18,1)
var_Column.Visible = false
var_Column.Alignment = 0
var_Column1 = oG2antt.Columns.Add("End")
var_Column1.Def(18,2)
var_Column1.Visible = false
var_Column1.Alignment = 2
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,48)
var_Chart.ColumnsFormatLevel = "1:52,|,2:52"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-04,2001-01-08)
oG2antt.EndUpdate()
|
|
1470
|
Is it possible to display a check-box column on the chart
OleObject oG2antt,var_Chart,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Tasks")
var_Column = oG2antt.Columns.Add("Check")
var_Column.Def(0,true)
var_Column.Visible = false
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,48)
var_Chart.ColumnsFormatLevel = "1"
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-03,2001-01-07)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-04,2001-01-08)
|
|
1469
|
Is it possible to disable the cell's editor context menu
OleObject oG2antt,var_Editor,var_Items
oG2antt = ole_1.Object
var_Editor = oG2antt.Columns.Add("Edit").Editor
var_Editor.EditType = 1
var_Editor.Option(202,false)
var_Items = oG2antt.Items
var_Items.AddItem(10)
var_Items.AddItem(20)
|
|
1468
|
How can I find a value in a drop down editor
OleObject oG2antt,var_Editor,var_Editor1,var_Items
oG2antt = ole_1.Object
var_Editor = oG2antt.Columns.Add("DropDownList").Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"DDList 1")
var_Editor.AddItem(2,"DDList 2")
var_Editor.AddItem(3,"DDList 3")
var_Editor1 = oG2antt.Columns.Add("DropDown").Editor
var_Editor1.EditType = 2
var_Editor1.AddItem(1,"DDType 1")
var_Editor1.AddItem(2,"DDType 2")
var_Editor1.AddItem(3,"DDType 3")
var_Items = oG2antt.Items
var_Items.CellValue(.AddItem(1),1,oG2antt.Columns.Item(1).Editor.FindItem(1))
var_Items.CellValue(.AddItem(2),1,oG2antt.Columns.Item(1).Editor.FindItem(2))
|
|
1467
|
What is the difference between DropDownType and DropDownListType
OleObject oG2antt,var_Editor,var_Editor1,var_Items
oG2antt = ole_1.Object
var_Editor = oG2antt.Columns.Add("DropDownList").Editor
var_Editor.EditType = 3
var_Editor.AddItem(1,"First item")
var_Editor.AddItem(2,"Second item")
var_Editor.AddItem(3,"Third item")
var_Editor1 = oG2antt.Columns.Add("DropDown").Editor
var_Editor1.EditType = 2
var_Editor1.AddItem(1,"First item")
var_Editor1.AddItem(2,"Second item")
var_Editor1.AddItem(3,"Third item")
var_Items = oG2antt.Items
var_Items.CellValue(var_Items.AddItem(1),1,"Any")
var_Items.CellValue(var_Items.AddItem(2),1,"Any")
|
|
1466
|
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 3)
OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 32
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Appearance.Add(2,"CP:1 -2 -2 2 2")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2002-01-01
var_Chart.SelBarColor = 50266112 /*0x2ff0000*/
var_Chart.Bars.Item("Task").Color = 16777216 /*0x1000000*/
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2002-01-02,2002-01-04,"A")
var_Items.AddBar(h,"Task",2002-01-06,2002-01-10,"B")
var_Items.AddBar(h,"Task",2002-01-11,2002-01-14,"C")
var_Items.ItemBar(h,"A",257,true)
var_Items.ItemBar(h,"B",257,true)
oG2antt.EndUpdate()
|
|
1465
|
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 2)
OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 32
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"c:\exontrol\images\normal.ebn")
var_Appearance.Add(2,"CP:1 -2 -2 2 2")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2002-01-01
var_Chart.SelBarColor = 33554432 /*0x2000000*/
var_Chart.Bars.Item("Task").Color = 16777216 /*0x1000000*/
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2002-01-02,2002-01-04,"A")
var_Items.AddBar(h,"Task",2002-01-06,2002-01-10,"B")
var_Items.AddBar(h,"Task",2002-01-11,2002-01-14,"C")
var_Items.ItemBar(h,"A",257,true)
var_Items.ItemBar(h,"B",257,true)
oG2antt.EndUpdate()
|
|
1464
|
How can I mark or enlarge the selected bars, so I have a clear frame around (Method 1)
OleObject oG2antt,var_Appearance,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 32
var_Appearance = oG2antt.VisualAppearance
var_Appearance.Add(1,"gBFLBCJwBAEHhEJAEGg4BNkMQAAYAQGKIYBkAKBQAGaAoDDYNQwQwAAwjIKEEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIxAJIcaw0GSEZwgOQZBiOEYnDANMgzDLMZR7DajYymSA6LiKNo+QjKFB0NLMVRtEIIIzCSCaNomT4DS4NIi2DYcVhhMqBYbtCZZBo2FpZUxXdL0BJMVxbHKYJikW4pVjoAJ+TxccjVDQNJyLQ6rYzuAAKNpuO58RbdGDQHA9KyfLCEcTxYAMbp6X5kaBZVp2VCMRzbTLUIDzPNVCTrNIaJioAaMeiCG5NUzieqRNalLABFjZMIHDbtGynDIJZruW52+CLIZpWbEOiRXr2TxxgGYp5Fie5mAYBgIgSFDrDOIZUmQZYiECXJUjIEQ3lUGgbEIRQcg+Hg8DEFxYFuOR/i+X5znufh/omBgCgCVwjn4BoBmCCAmAqApgkefgMgOYQID4DoELsUgTgUYYIC4F4GGGSAaBuBxhhgfgggUYgog4EYJGIaBJn6ChiBiLgsgkIpoj4J4BCMSJWDaDZjgiZgCEAQCAgA==")
var_Appearance.Add(2,"CP:1 -2 -2 2 2")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2002-01-01
var_Chart.SelBarColor = 33554432 /*0x2000000*/
var_Chart.PaneWidth(false,48)
oG2antt.Columns.Add("Task")
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2002-01-02,2002-01-04,"A")
var_Items.AddBar(h,"Task",2002-01-06,2002-01-10,"B")
var_Items.AddBar(h,"Task",2002-01-11,2002-01-14,"C")
var_Items.ItemBar(h,"A",257,true)
var_Items.ItemBar(h,"B",257,true)
oG2antt.EndUpdate()
|
|
1463
|
How can I load my table from an Access 2007, using ADO
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/
OleObject oG2antt,rs,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 1994-08-03
var_Chart.PaneWidth(false,256)
var_Chart.LevelCount = 2
var_Chart.UnitScale = 4096
var_Chart.FirstWeekDay = 1
var_Chart.OverviewVisible = 2
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Items.AllowCellValueToItemBar = true
oG2antt.Columns.Item(2).Def(18,1)
oG2antt.Columns.Item(4).Def(18,2)
oG2antt.EndUpdate()
|
|
1462
|
Is it possible to enumerate the links without enumerating them
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4
oG2antt = ole_1.Object
oG2antt.AntiAliasing = true
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Chart.NonworkingDays = 0
var_Chart.LinksWidth = 2
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-06,2001-01-08,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-10,2001-01-12,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Task",2001-01-14,2001-01-16,"K4")
var_Items.AddLink("L3",h3,"K3",h4,"K4")
var_Items.Link("<L*>",11,false)
|
|
1461
|
How can I display a vertical line in the chart
/*begin event Click() - Occurs when the user presses and then releases the left mouse button over the tree control.*/
/*
OleObject var_Chart
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.MarkNowColor = RGB(255,0,0)
var_Chart.MarkNow = var_Chart.DateFromPoint(-1,-1)
*/
/*end event Click*/
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2012-03-13
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.MarkNowColor = RGB(0,0,0)
var_Chart.MarkNowWidth = 3
var_Chart.UnitWidth = 32
var_Chart.ResizeUnitScale = 65536
|
|
1460
|
How can I use the MarkNowColor to mark a time line different then the time on the machine
OleObject oG2antt,var_Chart,var_Level
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2012-03-13
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.Level(0).Label = 1048576
var_Level = var_Chart.Level(1)
var_Level.Label = "<%ss%>"
var_Level.Count = 15
var_Chart.MarkNowColor = RGB(255,0,0)
var_Chart.MarkNowWidth = 3
var_Chart.MarkNow = DateTime(2012-03-13,00:03:20)
|
|
1459
|
Is it possible to show the current date time using a delay
OleObject oG2antt,var_Chart,var_Items,var_Level
oG2antt = ole_1.Object
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.Level(0).Label = 1048576
var_Level = var_Chart.Level(1)
var_Level.Label = "<%ss%>"
var_Level.Count = 15
var_Chart.MarkNowColor = RGB(0,0,255)
var_Chart.MarkNowWidth = 3
var_Chart.MarkNowDelay = 0.00069444
oG2antt.Columns.Add("Tasks")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task",2008-01-01,2018-01-01)
|
|
1458
|
What are the options to show the links between bars
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4,h5
oG2antt = ole_1.Object
oG2antt.AntiAliasing = true
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Chart.NonworkingDays = 0
var_Chart.LinksWidth = 2
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddItem("")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddItem("")
var_Items.AddBar(h2,"Task",2001-01-06,2001-01-08,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
h3 = var_Items.AddItem("Task 3")
var_Items.AddItem("")
var_Items.AddBar(h3,"Task",2001-01-12,2001-01-14,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
var_Items.Link("L2",15,-1)
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Task",2001-01-18,2001-01-20,"K4")
var_Items.AddLink("L3",h3,"K3",h4,"K4")
var_Items.Link("L3",15,1)
var_Items.AddItem("")
h5 = var_Items.AddItem("Task 5")
var_Items.AddBar(h5,"Task",2001-01-22,2001-01-24,"K5")
var_Items.AddLink("L4",h4,"K4",h5,"K5")
var_Items.Link("L4",15,2)
|
|
1457
|
Is it possible to specify the link between bars to be a wider line
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Chart.NonworkingDays = 0
var_Chart.LinksStyle = 0
var_Chart.LinksWidth = 2
var_Chart.LinksColor = RGB(255,0,0)
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-06,2001-01-08,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-10,2001-01-12,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
|
|
1456
|
Is it possible to create a link between the two specified bars so that the link was a straight line
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3
oG2antt = ole_1.Object
oG2antt.Columns.Add("Task")
oG2antt.AntiAliasing = true
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.PaneWidth(false,128)
var_Chart.NonworkingDays = 0
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-06,2001-01-08,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",9,0)
var_Items.Link("L1",10,2)
var_Items.Link("L1",8,255)
var_Items.Link("L1",15,2)
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-10,2001-01-12,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
|
|
1455
|
I associate the bars with my columns, Start and End, but can not get it working for bars with non-empty keys. What am I doing wrong
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Column = var_Columns.Add("Start")
var_Column.Def(18,1)
var_Column.Def(19,"A")
var_Column1 = var_Columns.Add("End")
var_Column1.Def(18,2)
var_Column1.Def(19,"A")
oG2antt.Items.AllowCellValueToItemBar = true
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,256)
var_Chart.FirstVisibleDate = 2002-01-01
var_Chart.LevelCount = 2
var_Chart.Bars.Item("Task").OverlaidType = 3
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2002-01-04,2002-01-08,"A","A")
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2002-01-06,2002-01-10,"A","A")
var_Items.AddBar(h,"Task",2002-01-04,2002-01-08,"B","B")
var_Items.ItemBar(h,"B",33,255)
oG2antt.EndUpdate()
|
|
1454
|
The right pane needs to show ONLY the hours 6am to 9pm (every hour) for one day only and the user should not to be able to scroll left or right nor see any other hours. How can I do that
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.ScrollRange(0,2001-01-01)
var_Chart.ScrollRange(1,2001-01-01)
var_Chart.UnitScale = 65536
var_Chart.NonworkingHours = 12582975
var_Chart.ShowNonworkingUnits = false
var_Chart.ShowNonworkingHours = false
var_Chart.Level(0).Alignment = 17 /*exHOutside | CenterAlignment*/
var_Chart.UnitWidth = 18
var_Chart.PaneWidth(true,294)
var_Chart.ScrollBar = false
oG2antt.OnResizeControl = 128
oG2antt.EndUpdate()
|
|
1453
|
Is it possible to count only a specified type of bars without enumerating them
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Tasks")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1","K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Progress",2001-01-03,2001-01-05)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-02,2001-01-04,"P3","P3")
MessageBox("Information",string( "K*" ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<K*>",256)) ))
MessageBox("Information",string( "K* P*" ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<K* P*>",256)) ))
|
|
1452
|
How can I count or get the numbers of the bars in the chart
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Tasks")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1","K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"A2","A2")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-02,2001-01-04,"K3","K3")
MessageBox("Information",string( "All" ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<*>",256)) ))
MessageBox("Information",string( "A*" ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<A*>",256)) ))
MessageBox("Information",string( "K*" ))
MessageBox("Information",string( String(var_Items.ItemBar(0,"<K*>",256)) ))
|
|
1451
|
Is it possible to remove only specified bars from ALL items at once
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Tasks")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1","K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"A2","A2")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-02,2001-01-04,"K3","K3")
var_Items.RemoveBar(0,"<K*>")
|
|
1450
|
How can I remove all bars from the chart (method 2)
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Tasks")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1","K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"A2","A2")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-02,2001-01-04,"K3","K3")
var_Items.ClearBars(0)
|
|
1449
|
How can I remove all bars from the chart (method 1)
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Tasks")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1","K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"A2","A2")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-02,2001-01-04,"K3","K3")
var_Items.RemoveBar(0,"<*>")
|
|
1448
|
Is it possible to update at once a property for several bars without enumerating them
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Tasks")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1","K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"A2","A2")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-02,2001-01-04,"K3","K3")
var_Items.ItemBar(0,"<K*>",33,255)
|
|
1447
|
Is it possible to update at once a property of ALL bars without enumerating them
OleObject oG2antt,var_Items
oG2antt = ole_1.Object
oG2antt.Columns.Add("Tasks")
oG2antt.Chart.FirstVisibleDate = 2001-01-01
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1","K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-02,2001-01-04,"A2","A2")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-02,2001-01-04,"K3","K3")
var_Items.ItemBar(0,"<*>",33,255)
|
|
1446
|
How do I prevent selecting a new item when selecting a bar
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-29
var_Chart.PaneWidth(false,64)
var_Chart.LevelCount = 2
var_Chart.SelectOnClick = false
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-04,2001-01-06,"K2")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-08,2001-01-10,"K3")
var_Items.SelectItem(var_Items.FirstVisibleItem,true)
oG2antt.EndUpdate()
|
|
1445
|
Is it possible to find out all incoming bars ( recursively )
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any b,i
oG2antt = ole_1.Object
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,542)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.PaneWidth(false,96)
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = true
var_Chart.AllowCreateBar = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A","A")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"B","B")
var_Items.AddLink("L1",h1,"A",h2,"B")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"C","C")
var_Items.AddLink("L2",h2,"B",h3,"C")
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Task",2001-01-08,2001-01-10,"D","D")
var_Items.AddLink("L3",h1,"A",h4,"D")
oG2antt.EndUpdate()
|
|
1444
|
How do I find the incoming bars
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any b,i
oG2antt = ole_1.Object
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,541)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.PaneWidth(false,96)
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = true
var_Chart.AllowCreateBar = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A","A")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"B","B")
var_Items.AddLink("L1",h1,"A",h2,"B")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"C","C")
var_Items.AddLink("L2",h2,"B",h3,"C")
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Task",2001-01-08,2001-01-10,"D","D")
var_Items.AddLink("L3",h1,"A",h4,"D")
oG2antt.EndUpdate()
|
|
1443
|
Is it possible to find out all incoming links ( recursively ). Incoming link is a link from another bar to the current bar
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any b,i
oG2antt = ole_1.Object
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,536)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.PaneWidth(false,96)
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = true
var_Chart.AllowCreateBar = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A","A")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"B","B")
var_Items.AddLink("L1",h1,"A",h2,"B")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"C","C")
var_Items.AddLink("L2",h2,"B",h3,"C")
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Task",2001-01-08,2001-01-10,"D","D")
var_Items.AddLink("L3",h1,"A",h4,"D")
oG2antt.EndUpdate()
|
|
1442
|
How do I find the incoming links. Incoming link is link from another bar to the current bar
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any b,i
oG2antt = ole_1.Object
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,534)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.PaneWidth(false,96)
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = true
var_Chart.AllowCreateBar = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A","A")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"B","B")
var_Items.AddLink("L1",h1,"A",h2,"B")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"C","C")
var_Items.AddLink("L2",h2,"B",h3,"C")
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Task",2001-01-08,2001-01-10,"D","D")
var_Items.AddLink("L3",h1,"A",h4,"D")
oG2antt.EndUpdate()
|
|
1441
|
Is it possible to find out all outgoing bars ( recursively )
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any b,i
oG2antt = ole_1.Object
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,532)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.PaneWidth(false,96)
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = true
var_Chart.AllowCreateBar = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A","A")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"B","B")
var_Items.AddLink("L1",h1,"A",h2,"B")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"C","C")
var_Items.AddLink("L2",h2,"B",h3,"C")
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Task",2001-01-08,2001-01-10,"D","D")
var_Items.AddLink("L3",h1,"A",h4,"D")
oG2antt.EndUpdate()
|
|
1440
|
How do I find the outgoing bars
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any b,i
oG2antt = ole_1.Object
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,531)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.PaneWidth(false,96)
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = true
var_Chart.AllowCreateBar = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A","A")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"B","B")
var_Items.AddLink("L1",h1,"A",h2,"B")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"C","C")
var_Items.AddLink("L2",h2,"B",h3,"C")
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Task",2001-01-08,2001-01-10,"D","D")
var_Items.AddLink("L3",h1,"A",h4,"D")
oG2antt.EndUpdate()
|
|
1439
|
Is it possible to find out all outgoing links ( recursively ). Outgoing link is link from a bar to another bar
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any b,i
oG2antt = ole_1.Object
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,526)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.PaneWidth(false,96)
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = true
var_Chart.AllowCreateBar = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A","A")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"B","B")
var_Items.AddLink("L1",h1,"A",h2,"B")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"C","C")
var_Items.AddLink("L2",h2,"B",h3,"C")
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Task",2001-01-08,2001-01-10,"D","D")
var_Items.AddLink("L3",h1,"A",h4,"D")
oG2antt.EndUpdate()
|
|
1438
|
How do I find the outgoing links. Outgoing link is link from a bar to another bar
/*begin event MouseMove(integer Button,integer Shift,long X,long Y) - Occurs when the user moves the mouse.*/
/*
any b,i
oG2antt = ole_1.Object
b = oG2antt.Chart.BarFromPoint(-1,-1)
i = oG2antt.ItemFromPoint(-1,-1,c,hit)
MessageBox("Information",string( String(oG2antt.Items.ItemBar(i,b,524)) ))
*/
/*end event MouseMove*/
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3,h4
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.PaneWidth(false,96)
var_Chart.NonworkingDays = 0
var_Chart.AllowLinkBars = true
var_Chart.AllowCreateBar = 1
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"A","A")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"B","B")
var_Items.AddLink("L1",h1,"A",h2,"B")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"C","C")
var_Items.AddLink("L2",h2,"B",h3,"C")
h4 = var_Items.AddItem("Task 4")
var_Items.AddBar(h4,"Task",2001-01-08,2001-01-10,"D","D")
var_Items.AddLink("L3",h1,"A",h4,"D")
oG2antt.EndUpdate()
|
|
1437
|
How do I select a bar using the right-click
/*begin event MouseDown(integer Button,integer Shift,long X,long Y) - Occurs when the user presses a mouse button.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.ItemBar(0,"<*>",257,false)
var_Items.ItemBar(oG2antt.ItemFromPoint(-1,-1,c,hit),oG2antt.Chart.BarFromPoint(-1,-1),257,true)
*/
/*end event MouseDown*/
OleObject oG2antt,var_Chart,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-29
var_Chart.PaneWidth(false,64)
var_Chart.LevelCount = 2
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2001-01-02,2001-01-04,"K1")
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2001-01-04,2001-01-06,"K2")
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2001-01-08,2001-01-10,"K3")
oG2antt.EndUpdate()
|
|
1436
|
How can I add or change the padding (spaces) for captions in the control's header
OleObject oG2antt,var_Column
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Padding-Left").Def(52,18)
var_Column = oG2antt.Columns.Add("Padding-Right")
var_Column.Def(53,18)
var_Column.HeaderAlignment = 2
oG2antt.EndUpdate()
|
|
1435
|
Do you have any plans to add cell spacing and cell padding to the cells
OleObject oG2antt,var_Column,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -2
var_Column = oG2antt.Columns.Add("Padding-Left")
var_Column.Def(0,true)
var_Column.Def(48,18)
oG2antt.Columns.Add("No-Padding").Def(0,true)
oG2antt.Columns.Add("Empty").Position = 0
var_Items = oG2antt.Items
var_Items.CellValue(var_Items.AddItem("Item A.1"),1,"Item A.2")
var_Items.CellValue(var_Items.AddItem("Item B.1"),1,"Item B.2")
var_Items.CellValue(var_Items.AddItem("Item C.1"),1,"Item C.2")
oG2antt.EndUpdate()
|
|
1434
|
Can I display somehow the filter just on the top of the list, with an editor associated to each column
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/
/*begin event Change(long Item,long ColIndex,any NewValue) - Occurs when the user changes the cell's content.*/
/*
OleObject var_Column
oG2antt = ole_1.Object
MessageBox("Information",string( "Locked:" ))
MessageBox("Information",string( String(oG2antt.Items.IsItemLocked(Item)) ))
var_Column = oG2antt.Columns.Item(ColIndex)
var_Column.Filter = String(NewValue)
var_Column.FilterType = 3
oG2antt.ApplyFilter()
*/
/*end event Change*/
/*begin event MouseUp(integer Button,integer Shift,long X,long Y) - Occurs when the user releases a mouse button.*/
/*
oG2antt = ole_1.Object
oG2antt.Edit(oG2antt.Items.LockedItem(0,0))
*/
/*end event MouseUp*/
OleObject oG2antt,rs,var_Items
any h
oG2antt = ole_1.Object
oG2antt.ColumnAutoResize = false
oG2antt.ScrollBySingleLine = true
oG2antt.ContinueColumnScroll = false
oG2antt.Chart.FirstVisibleDate = 1994-08-03
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
var_Items = oG2antt.Items
var_Items.LockedItemCount(0,2)
h = var_Items.LockedItem(0,0)
var_Items.CellEditor(h,0).EditType = 1
h = var_Items.LockedItem(0,1)
var_Items.ItemHeight(h,4)
var_Items.ItemDivider(h,0)
var_Items.SelectableItem(h,false)
|
|
1433
|
Is it possible to display information about the firing events
/*begin event Event(long EventID) - Notifies the application once the control fires an event.*/
/*
oG2antt = ole_1.Object
MessageBox("Information",string( String(oG2antt.EventParam(-2)) ))
*/
/*end event Event*/
OleObject oG2antt
oG2antt = ole_1.Object
|
|
1432
|
I need to specify the start and end dates of the bar to be the same, but to keep count of the working units. Is it possible
OleObject oG2antt,var_Chart,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Columns.Add("Start").Def(18,1)
var_Columns.Add("End").Def(18,543)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2006-09-20
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Chart.ShowEmptyBars = 1
var_Chart.Bars.Add("Task:Split").Shortcut = "Task"
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2006-09-21,2006-09-21)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2006-09-22,2006-09-25)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2006-09-25,2006-09-25)
var_Items.ItemBar(0,"<*>",20,true)
oG2antt.EndUpdate()
|
|
1431
|
I need to specify the start and end dates of the bar to be the same, but no bars are shown. (NOT recommended for bars with exBarKeepWorkingCount ) What I can do
OleObject oG2antt,var_Chart,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Columns.Add("Start").Def(18,1)
var_Columns.Add("End").Def(18,543)
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2006-09-20
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Chart.ShowEmptyBars = 1
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2006-09-21,2006-09-21)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2006-09-22,2006-09-22)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2006-09-25,2006-09-25)
oG2antt.EndUpdate()
|
|
1430
|
I need my chart to display the end date with on day less. How can I do this (Method 2)
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.MarkSearchColumn = false
var_Columns = oG2antt.Columns
var_Columns.Add("Tasks")
var_Column = var_Columns.Add("Start")
var_Column.Def(18,1)
var_Column.Editor.EditType = 7
var_Column1 = var_Columns.Add("End")
var_Column1.Def(18,543)
var_Column1.Editor.EditType = 7
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2006-09-20
var_Chart.LevelCount = 2
var_Chart.PaneWidth(false,256)
var_Chart.NonworkingDays = 0
var_Items = oG2antt.Items
var_Items.AllowCellValueToItemBar = true
var_Items.AddBar(var_Items.AddItem("Task 1"),"Task",2006-09-21,2006-09-24)
var_Items.AddBar(var_Items.AddItem("Task 2"),"Task",2006-09-22,2006-09-25)
var_Items.AddBar(var_Items.AddItem("Task 3"),"Task",2006-09-23,2006-09-26)
oG2antt.EndUpdate()
|
|
1429
|
Is it possible to change the width of a specified time unit
OleObject oG2antt,var_Chart,var_InsideZoom,var_InsideZooms
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2008-01-01
var_Chart.AllowInsideZoom = true
var_Chart.AllowResizeInsideZoom = false
var_Chart.InsideZoomOnDblClick = false
var_Chart.DefaultInsideZoomFormat.BackColorChart = RGB(255,0,255)
var_InsideZooms = var_Chart.InsideZooms
var_InsideZooms.SplitBaseLevel = false
var_InsideZooms.DefaultWidth = 18
var_InsideZoom = var_InsideZooms.Add(2008-01-15)
var_InsideZoom.AllowInsideFormat = false
var_InsideZoom.Width = 128
oG2antt.EndUpdate()
|
|
1428
|
The level unit of the chart is set to day, so i'd like to set the whole background of the current day. Is it possible to set a background color only on the current day (Method 2)
OleObject oG2antt,var_Chart,var_InsideZooms
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,0)
var_Chart.LevelCount = 2
var_Chart.FirstVisibleDate = 2008-01-01
var_Chart.AllowInsideZoom = true
var_Chart.AllowResizeInsideZoom = false
var_Chart.InsideZoomOnDblClick = false
var_Chart.DefaultInsideZoomFormat.BackColorChart = RGB(255,0,0)
var_InsideZooms = var_Chart.InsideZooms
var_InsideZooms.SplitBaseLevel = false
var_InsideZooms.DefaultWidth = 18
var_InsideZooms.Add(2008-01-15).AllowInsideFormat = false
oG2antt.EndUpdate()
|
|
1427
|
The level unit of the chart is set to day, so i'd like to set the whole background of the current day. Is it possible to set a background color only on the current day (Method 1)
OleObject oG2antt,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,0)
var_Chart.FirstVisibleDate = 2008-01-01
var_Chart.MarkTodayColor = var_Chart.BackColor
var_Chart.LevelCount = 2
var_Chart.MarkSelectDateColor = 2147418112 /*0x7fff0000*/
var_Chart.SelectLevel = 1
var_Chart.SelectDate(2008-01-15,true)
oG2antt.EndUpdate()
|
|
1426
|
How can I change the layout of my columns when using the exCRD
OleObject oG2antt,var_Column,var_Column1,var_Column2,var_Columns,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DrawGridLines = -2
oG2antt.DefaultItemHeight = 36
var_Columns = oG2antt.Columns
var_Column = var_Columns.Add("Column1")
var_Column.Visible = false
var_Column.Editor.EditType = 1
var_Column1 = var_Columns.Add("Column2")
var_Column1.Visible = false
var_Column1.Editor.EditType = 1
var_Columns.Add("Column3").Visible = false
var_Column2 = var_Columns.Add("FormatLevel")
var_Column2.FormatLevel = "(0/1),2"
var_Column2.Def(32,var_Column2.FormatLevel)
var_Items = oG2antt.Items
h = var_Items.AddItem("Cell 1.1")
var_Items.CellValue(h,1,"Cell 1.2")
var_Items.CellValue(h,2,"Cell 1.3")
h = var_Items.AddItem("Cell 2.1")
var_Items.CellValue(h,1,"Cell 2.2")
var_Items.CellValue(h,2,"Cell 2.3")
oG2antt.EndUpdate()
|
|
1425
|
How can I overlaid a single bar
OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h,h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.Columns.Add("Task")
oG2antt.ScrollBySingleLine = true
oG2antt.BackColorAlternate = RGB(240,240,240)
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 1
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidGroup = "OTask"
var_Bar.OverlaidType = 0
var_Bar.Def(3,"<%=%9%>")
var_Bar1 = var_Chart.Bars.Copy("Task","OTask")
var_Bar1.OverlaidGroup = "Task"
var_Bar1.OverlaidType = 8196 /*exOverlaidBarsStrict | exOverlaidBarsCascade*/
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Default")
h = var_Items.AddItem("Overlaid")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A1")
var_Items.AddBar(h,"Task",2001-01-04,2001-01-07,"A3")
var_Items.AddBar(h,"OTask",2001-01-03,2001-01-05,"A2")
var_Items.ItemBar(h,"A2",33,255)
var_Items.AddBar(h,"Task",2001-01-05,2001-01-08,"A4")
h1 = var_Items.AddItem("Default")
oG2antt.EndUpdate()
|
|
1424
|
How can I use the exOverlaidBarsCascade, exBarOverlaidKey
/*begin event CreateBar(long Item,datetime DateStart,datetime DateEnd) - Fired when the user creates a new bar.*/
/*
oG2antt = ole_1.Object
oG2antt.Items.ItemBar(Item,"newbar",52,"Level0")
*/
/*end event CreateBar*/
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.Columns.Add("Task")
oG2antt.ScrollBySingleLine = true
oG2antt.BackColorAlternate = RGB(240,240,240)
var_Chart = oG2antt.Chart
var_Chart.AllowCreateBar = 1
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 4
var_Bar.Def(3,"<%=%9%>")
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Default")
h = var_Items.AddItem("Overlaid")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A1")
var_Items.ItemBar(h,"A1",52,"Level0")
var_Items.AddBar(h,"Task",2001-01-04,2001-01-07,"A3")
var_Items.ItemBar(h,"A3",52,"Level0")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-05,"A2")
var_Items.ItemBar(h,"A2",33,255)
var_Items.ItemBar(h,"A2",52,"Level1")
var_Items.AddBar(h,"Task",2001-01-05,2001-01-08,"A4")
var_Items.ItemBar(h,"A4",33,255)
var_Items.ItemBar(h,"A4",52,"Level1")
h1 = var_Items.AddItem("Default")
oG2antt.EndUpdate()
|
|
1423
|
How can I use the exOverlaidBarsStack+exOverlaidBarsStackAutoArrange
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.Columns.Add("Task")
oG2antt.ScrollBySingleLine = true
oG2antt.BackColorAlternate = RGB(240,240,240)
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 515 /*exOverlaidBarsStackAutoArrange | exOverlaidBarsStack*/
var_Bar.Def(3,"<%=%9%>")
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Default")
h = var_Items.AddItem("Overlaid")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A1")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-05,"A2")
var_Items.AddBar(h,"Task",2001-01-04,2001-01-07,"A3")
var_Items.AddBar(h,"Task",2001-01-05,2001-01-08,"A4")
h1 = var_Items.AddItem("Default")
oG2antt.EndUpdate()
|
|
1422
|
How can I use the exOverlaidBarsStack
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.Columns.Add("Task")
oG2antt.ScrollBySingleLine = true
oG2antt.BackColorAlternate = RGB(240,240,240)
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 3
var_Bar.Def(3,"<%=%9%>")
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Default")
h = var_Items.AddItem("Overlaid")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A1")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-05,"A2")
var_Items.AddBar(h,"Task",2001-01-04,2001-01-07,"A3")
var_Items.AddBar(h,"Task",2001-01-05,2001-01-08,"A4")
h1 = var_Items.AddItem("Default")
oG2antt.EndUpdate()
|
|
1421
|
How can I use the exOverlaidBarsIntersect
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.Columns.Add("Task")
oG2antt.ScrollBySingleLine = true
oG2antt.BackColorAlternate = RGB(240,240,240)
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 2
var_Bar.Overlaid(2,"Progress")
var_Bar.Def(3,"<%=%9%>")
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Default")
h = var_Items.AddItem("Overlaid")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A1")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-05,"A2")
var_Items.AddBar(h,"Task",2001-01-04,2001-01-07,"A3")
var_Items.AddBar(h,"Task",2001-01-05,2001-01-08,"A4")
h1 = var_Items.AddItem("Default")
oG2antt.EndUpdate()
|
|
1420
|
How can I use the exOverlaidBarsOffset
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.DefaultItemHeight = 22
oG2antt.Columns.Add("Task")
oG2antt.ScrollBySingleLine = true
oG2antt.BackColorAlternate = RGB(240,240,240)
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.OverlaidType = 1
var_Bar.Def(3,"<%=%9%>")
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Default")
h = var_Items.AddItem("Overlaid")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-04,"A1")
var_Items.AddBar(h,"Task",2001-01-03,2001-01-05,"A2")
var_Items.AddBar(h,"Task",2001-01-04,2001-01-07,"A3")
var_Items.AddBar(h,"Task",2001-01-05,2001-01-08,"A4")
h1 = var_Items.AddItem("Default")
oG2antt.EndUpdate()
|
|
1419
|
Is it possible to specify the end of the project when using the SchedulePDM method
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.PaneWidth(false,48)
var_Chart.LevelCount = 2
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-02,2001-01-05,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"FS")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-02,2001-01-06,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
var_Items.Link("L2",12,"SS")
var_Items.Link("L2",6,0)
var_Items.Link("L2",7,0)
var_Items.DefSchedulePDM(0,2)
var_Items.DefSchedulePDM(1,2001-01-08)
var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()
|
|
1418
|
Is it possible to specify the start of the project when using the SchedulePDM method
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2000-12-28
var_Chart.PaneWidth(false,48)
var_Chart.LevelCount = 2
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-02,2001-01-05,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"FS")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-02,2001-01-06,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
var_Items.Link("L2",12,"SS")
var_Items.Link("L2",6,0)
var_Items.Link("L2",7,0)
var_Items.DefSchedulePDM(0,1)
var_Items.DefSchedulePDM(1,2001-01-08)
var_Items.SchedulePDM(0,"K1")
oG2antt.EndUpdate()
|
|
1417
|
How can I change the caption or the addition information being displayed in the Zoom-OnFly view
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.AllowZoomOnFly = 24
var_Chart.ResizeUnitScale = 65536
var_Chart.Label(65536,"<font ;5><b><%h%><br><%AM/PM%></b></font>")
var_Chart.ZoomOnFlyCaption = "<br><c><b><font ;12><%=%C0 + ' / <fgcolor=00FF00>' + %3%></font></fgcolor></b><br><solidline><upline><b>Start</b>:<%=%1%><br><b>End</b>:<%=%2%><br><b>Duration</b>:<%=round(%2-%1) + ' days'%><br><b>Working</b>:<%='<b>' + int(%258) + '</b> days' + (0:=(%258 - int(%258)) ? (' <fgcolor=FF0000><b>' + round(24 * =:0) + '</b> hours') : '') %>"
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-07,2001-01-10,"T1","T1")
var_Items.AddBar(h,"Task",2001-01-11,2001-01-14,"T3","T3")
h = var_Items.AddItem()
var_Items.AddBar(h,"",2001-01-15,2001-01-15,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
var_Items.SelectableItem(h,false)
oG2antt.EndUpdate()
|
|
1416
|
How can I change the scale in the Zoom-OnFly view
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.AllowZoomOnFly = 24
var_Chart.ResizeUnitScale = 65536
var_Chart.Label(65536,"<font ;5><b><%h%><br><%AM/PM%></b></font>")
var_Chart.ZoomOnFlyCaption = ""
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-07,2001-01-10,"T1","T1")
var_Items.AddBar(h,"Task",2001-01-11,2001-01-14,"T3","T3")
h = var_Items.AddItem()
var_Items.AddBar(h,"",2001-01-15,2001-01-15,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
var_Items.SelectableItem(h,false)
oG2antt.EndUpdate()
|
|
1415
|
Is it possible to change the Zoom-OnFly view's background color
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.AllowZoomOnFly = 24
var_Chart.BackColorZoomOnFly = RGB(240,240,240)
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-07,2001-01-10,"T1","T1")
var_Items.AddBar(h,"Task",2001-01-11,2001-01-14,"T3","T3")
h = var_Items.AddItem()
var_Items.AddBar(h,"",2001-01-15,2001-01-15,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
var_Items.SelectableItem(h,false)
oG2antt.EndUpdate()
|
|
1414
|
How can I include the selected items in the Zoom-OnFly view
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.AllowZoomOnFly = 792 /*exZoomOnFlyIncludeSelectedItems | exZoomOnFly*/
var_Chart.SelBackColor = RGB(240,240,240)
var_Chart.SelectOnClick = false
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-07,2001-01-10,"T1","T1")
var_Items.SelectItem(h,true)
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2001-01-11,2001-01-14,"T2","T2")
h = var_Items.AddItem("Task 3")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-12,"T3","T3")
h = var_Items.AddItem()
var_Items.AddBar(h,"",2001-01-15,2001-01-15,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
var_Items.SelectableItem(h,false)
oG2antt.EndUpdate()
|
|
1413
|
Is it possible to include the neighbors items in the Zoom-OnFly view
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.LevelCount = 2
var_Chart.AllowZoomOnFly = 280 /*exZoomOnFlyIncludeNeighborItems | exZoomOnFly*/
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-07,2001-01-10,"T1","T1")
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2001-01-11,2001-01-14,"T3","T3")
h = var_Items.AddItem("Task 3")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-12,"T1","T1")
h = var_Items.AddItem()
var_Items.AddBar(h,"",2001-01-15,2001-01-15,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
var_Items.SelectableItem(h,false)
oG2antt.EndUpdate()
|
|
1412
|
How can I enable the Zoom-OnFly view
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2000-11-05
var_Chart.LevelCount = 2
var_Chart.UnitScale = 256
var_Chart.ResizeUnitScale = 4096
var_Chart.AllowZoomOnFly = 24
var_Chart.Bars.Item("Task").OverlaidType = 3
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-07,2001-01-17,"T1","T1")
var_Items.AddBar(h,"Task",2001-01-18,2001-02-24,"T3","T3")
h = var_Items.AddItem()
var_Items.AddBar(h,"",2001-01-15,2001-01-15,"","Focus the chart ( click here ), and press the <b>CTRL + SHIFT</b>, so the Zoom-OnFly is shown.")
var_Items.SelectableItem(h,false)
oG2antt.EndUpdate()
|
|
1411
|
I am using the overlay bars on stack, can I somehow tell a type of bar, or a specific bar, to be always on top of all other’s. Like a Z-Index or something
OleObject oG2antt,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.ScrollBySingleLine = true
oG2antt.Columns.Add("Task")
oG2antt.DrawGridLines = 1
var_Chart = oG2antt.Chart
var_Chart.DrawGridLines = 1
var_Chart.AllowCreateBar = 1
var_Chart.AllowLinkBars = false
var_Chart.ResizeUnitScale = 65536
var_Chart.PaneWidth(false,48)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.Bars.Item("Task").OverlaidType = 3
var_Items = oG2antt.Items
h = var_Items.AddItem("Task 1")
var_Items.AddBar(h,"Task",2001-01-07,2001-01-10,"A1","A1")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-12,"A3","A3")
var_Items.ItemBar(h,"A3",33,65280)
h = var_Items.AddItem("Task 2")
var_Items.AddBar(h,"Task",2001-01-07,2001-01-10,"A31","A31")
var_Items.AddBar(h,"Task",2001-01-08,2001-01-12,"A3","A3")
var_Items.ItemBar(h,"A3",33,255)
var_Items.AddBar(var_Items.AddItem(),"",2001-01-10,2001-01-10,,"The <b>Key</b> of the bar specifies the Z-Order when overlaying.")
oG2antt.EndUpdate()
|
|
1410
|
Is it possible to specify the z-order when using the overlaying feature
OleObject oG2antt,var_Chart,var_Items
any h1
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Tasks")
var_Chart = oG2antt.Chart
var_Chart.NonworkingDays = 0
var_Chart.FirstVisibleDate = 2006-09-17
var_Chart.PaneWidth(false,64)
var_Chart.LevelCount = 2
var_Chart.Bars.Item("Task").OverlaidType = 4
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task")
var_Items.AddBar(h1,"Task",2006-09-21,2006-09-27,"K1","K1")
var_Items.AddBar(h1,"Task",2006-09-23,2006-09-24,"K2","K2")
var_Items.AddBar(h1,"Task",2006-09-22,2006-09-25,"K3","K3")
var_Items.AddBar(h1,"Task",2006-09-21,2006-09-27,"T1","T1")
var_Items.AddBar(h1,"Task",2006-09-28,2006-09-29,"T2","T2")
var_Items.AddBar(h1,"Task",2006-09-30,2006-10-03,"T3","T3")
var_Items.ItemBar(0,"<T*>",33,65280)
var_Items.ItemBar(0,"<K*>",52,"A")
var_Items.ItemBar(0,"<T*>",52,"B")
oG2antt.EndUpdate()
|
|
1409
|
I seen that there is no exBarStartColor, exBarEndColor, similar to exBarColor, is there any solution so I can display a different Start/End Color
OleObject oG2antt,var_Bar,var_Bar1,var_Chart,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 2001-01-01
var_Bar = var_Chart.Bars.Copy("Summary","Aka1")
var_Bar.StartColor = RGB(255,0,0)
var_Bar.EndColor = RGB(0,0,255)
var_Bar1 = var_Chart.Bars.Copy("Summary","Aka2")
var_Bar1.StartColor = RGB(0,255,0)
var_Bar1.EndColor = RGB(255,0,255)
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
h = var_Items.AddItem("Item A")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"B1")
var_Items.ItemBar(h,"B1",0,"Aka1")
h = var_Items.AddItem("Item B")
var_Items.AddBar(h,"Task",2001-01-02,2001-01-06,"B2")
var_Items.ItemBar(h,"B2",0,"Aka2")
oG2antt.EndUpdate()
|
|
1408
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a snapshot
OleObject oG2antt,var_Bar,var_Chart,var_Items
any h,h1,h2,h3
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.HTMLPicture("p1","c:\exontrol\images\card.png")
oG2antt.HTMLPicture("p2","c:\exontrol\images\sun.png")
oG2antt.AutoDrag = 11
oG2antt.LinesAtRoot = 0
oG2antt.HasLines = 2
oG2antt.ShowFocusRect = false
oG2antt.DefaultItemHeight = 26
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.ShowNonworkingDates = false
var_Chart.FirstVisibleDate = 2000-12-29
var_Chart.PaneWidth(false,96)
var_Chart.LevelCount = 2
var_Bar = var_Chart.Bars.Item("Task")
var_Bar.Color = 16777216 /*0x1000000*/
var_Bar.Height = 18
var_Items = oG2antt.Items
h = var_Items.AddItem("<img>p1:32</img>Group 1")
var_Items.CellValueFormat(h,0,1)
var_Items.ItemDivider(h,0)
var_Items.ItemBold(h,true)
h1 = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"L1")
h3 = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
var_Items.Link("L2",12,"L2")
h = var_Items.AddItem("<img>p2:32</img>Group 2")
var_Items.CellValueFormat(h,0,1)
var_Items.ItemBold(h,true)
var_Items.ItemDivider(h,0)
h1 = var_Items.InsertItem(h,,"Task")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
var_Items.ExpandItem(0,true)
oG2antt.EndUpdate()
|
|
1407
|
How can copy and paste the selection to Microsoft Word, any OLE compliant application, as a image
OleObject oG2antt,rs,var_Items
any h,var_HTMLPicture
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.HTMLPicture("p1","c:\exontrol\images\card.png")
oG2antt.HTMLPicture("p2","c:\exontrol\images\sun.png")
oG2antt.Chart.PaneWidth(true,0)
var_HTMLPicture = oG2antt.HTMLPicture("aka1")
oG2antt.HeaderHeight = 24
oG2antt.DefaultItemHeight = 48
oG2antt.DrawGridLines = -2
oG2antt.GridLineColor = RGB(240,240,240)
oG2antt.SelBackMode = 1
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Columns.Item(0).Def(17,1)
oG2antt.Columns.Item(0).FormatColumn = "value + ` <img>p` + (1 + (value mod 3 ) ) + `</img>`"
oG2antt.Columns.Item(0).Width = 112
oG2antt.Columns.Item(1).Def(0,1)
oG2antt.Columns.Item(2).LevelKey = "1"
oG2antt.Columns.Item(3).LevelKey = "1"
oG2antt.Columns.Item(4).LevelKey = "1"
oG2antt.AutoDrag = 10
oG2antt.SingleSel = false
var_Items = oG2antt.Items
h = var_Items.ItemByIndex(1)
var_Items.SelectItem(h,true)
h = var_Items.ItemByIndex(2)
var_Items.SelectItem(h,true)
h = var_Items.ItemByIndex(3)
var_Items.SelectItem(h,true)
var_Items.LockedItemCount(2,1)
h = var_Items.LockedItem(2,0)
var_Items.CellValue(h,1,"<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, ...")
var_Items.CellSingleLine(h,1,false)
var_Items.CellValueFormat(h,1,1)
var_Items.CellHAlignment(h,1,1)
var_Items.ItemDivider(h,1)
var_Items.ItemDividerLineAlignment(h,2)
oG2antt.EndUpdate()
|
|
1406
|
How can copy and paste the selection to Microsoft Word, Excel or any OLE compliant application, as a text
OleObject oG2antt,rs,var_Items
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.Chart.PaneWidth(true,0)
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.Columns.Item(2).LevelKey = "1"
oG2antt.Columns.Item(3).LevelKey = "1"
oG2antt.Columns.Item(4).LevelKey = "1"
oG2antt.AutoDrag = 9
oG2antt.SingleSel = false
var_Items = oG2antt.Items
h = var_Items.ItemByIndex(1)
var_Items.SelectItem(h,true)
h = var_Items.ItemByIndex(3)
var_Items.SelectItem(h,true)
h = var_Items.ItemByIndex(4)
var_Items.SelectItem(h,true)
h = var_Items.ItemByIndex(5)
var_Items.SelectItem(h,true)
var_Items.LockedItemCount(2,1)
h = var_Items.LockedItem(2,0)
var_Items.CellValue(h,0,"<font ;16>Click the selection and <b>wait to start dragging</b>, and then drop to Microsoft Word, Excel, ...")
var_Items.CellSingleLine(h,0,false)
var_Items.CellValueFormat(h,0,1)
var_Items.CellHAlignment(h,0,1)
var_Items.ItemDivider(h,0)
var_Items.ItemDividerLineAlignment(h,2)
oG2antt.EndUpdate()
|
|
1405
|
Is it possible to change the indentation during the drag and drop
OleObject oG2antt,var_Chart,var_Items
any h,h1,h2,h3
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.AutoDrag = 3
oG2antt.LinesAtRoot = 0
oG2antt.HasLines = 1
oG2antt.HasButtons = 3
oG2antt.ShowFocusRect = false
oG2antt.SelBackMode = 1
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.ShowNonworkingDates = false
var_Chart.FirstVisibleDate = 2000-12-29
var_Chart.PaneWidth(false,128)
var_Chart.LevelCount = 2
var_Chart.Bars.Item("Task").Color = 16777216 /*0x1000000*/
var_Items = oG2antt.Items
h = var_Items.AddItem("Group 1")
var_Items.ItemBold(h,true)
var_Items.ItemDivider(h,0)
h1 = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.InsertItem(h1,,"Task 2")
var_Items.AddBar(h2,"Task",2001-01-15,2001-01-17,"K4")
h2 = var_Items.InsertItem(h1,,"Task 3")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"L1")
h3 = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
var_Items.Link("L2",12,"L2")
var_Items.ExpandItem(h,true)
var_Items.ExpandItem(h1,true)
h = var_Items.AddItem("Group 2")
var_Items.ItemBold(h,true)
var_Items.ItemDivider(h,0)
var_Items.LockedItemCount(2,1)
h = var_Items.LockedItem(2,0)
var_Items.CellValue(h,0,"Click a row, and move by dragging <b>up, down</b> to change the row's parent or <b>left,right</b> to increase or decrease the indentation.")
var_Items.CellSingleLine(h,0,false)
var_Items.CellValueFormat(h,0,1)
oG2antt.EndUpdate()
|
|
1404
|
Is it possible to allow moving an item to another, but keeping its indentation
OleObject oG2antt,var_Chart,var_Items
any h,h1,h2,h3
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.AutoDrag = 2
oG2antt.LinesAtRoot = 0
oG2antt.HasLines = 2
oG2antt.ShowFocusRect = false
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.ShowNonworkingDates = false
var_Chart.FirstVisibleDate = 2000-12-29
var_Chart.PaneWidth(false,96)
var_Chart.LevelCount = 2
var_Chart.Bars.Item("Task").Color = 16777216 /*0x1000000*/
var_Items = oG2antt.Items
h = var_Items.AddItem("Group 1")
var_Items.ItemDivider(h,0)
var_Items.ItemBold(h,true)
h1 = var_Items.InsertItem(h,,"Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.InsertItem(h,,"Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"L1")
h3 = var_Items.InsertItem(h,,"Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
var_Items.Link("L2",12,"L2")
var_Items.ExpandItem(h,true)
h = var_Items.AddItem("Group 2")
var_Items.ItemBold(h,true)
var_Items.ItemDivider(h,0)
oG2antt.EndUpdate()
|
|
1403
|
How can I change the row's position to another, by drag and drop. Is it possible
OleObject oG2antt,var_Chart,var_Items
any h1,h2,h3
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.AutoDrag = 1
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.ShowNonworkingDates = false
var_Chart.FirstVisibleDate = 2000-12-29
var_Chart.PaneWidth(false,64)
var_Chart.LevelCount = 2
var_Chart.Bars.Item("Task").Color = 16777216 /*0x1000000*/
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task",2001-01-02,2001-01-04,"K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task",2001-01-05,2001-01-07,"K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
var_Items.Link("L1",12,"L1")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task",2001-01-08,2001-01-10,"K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
var_Items.Link("L2",12,"L2")
oG2antt.EndUpdate()
|
|
1402
|
Is it possible to scroll the control's content by clicking and moving the mouse up or down
/*begin event AddItem(long Item) - Occurs after a new Item has been inserted to Items collection.*/
/*
OleObject var_Items
oG2antt = ole_1.Object
var_Items = oG2antt.Items
var_Items.AddBar(Item,"Task",var_Items.CellValue(Item,2),var_Items.CellValue(Item,4))
*/
/*end event AddItem*/
OleObject oG2antt,rs,var_Chart
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = 1994-08-03
var_Chart.PaneWidth(false,256)
var_Chart.LevelCount = 2
var_Chart.UnitScale = 4096
var_Chart.FirstWeekDay = 1
var_Chart.OverviewVisible = 2
oG2antt.ColumnAutoResize = false
oG2antt.ContinueColumnScroll = false
rs = CREATE OLEObject
rs.ConnectToNewObject("ADOR.Recordset")
rs.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
oG2antt.DataSource = rs
oG2antt.AutoDrag = 16
oG2antt.EndUpdate()
|
|
1401
|
How can I display bars so they fit the entire height ( height of the row )
OleObject oG2antt,var_Chart,var_Column,var_Column1,var_Columns,var_Items,var_Level
any h
oG2antt = ole_1.Object
oG2antt.BeginUpdate()
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.DefaultItemHeight = 36
var_Chart = oG2antt.Chart
var_Chart.PaneWidth(false,164)
var_Chart.FirstVisibleDate = 2001-01-01
var_Chart.UnitWidth = 48
var_Chart.LevelCount = 2
var_Chart.UnitScale = 65536
var_Chart.NonworkingHours = 16253183
var_Chart.ShowNonworkingUnits = false
var_Chart.UnitWidth = 16
var_Chart.FirstVisibleDate = DateTime(2012-01-01,08:00:00)
var_Chart.DrawGridLines = -1
var_Chart.Bars.Add("Empty").Pattern = 0
var_Level = var_Chart.Level(0)
var_Level.Alignment = 17 /*exHOutside | CenterAlignment*/
var_Level.Label = "<%d2%>"
var_Chart.AllowLinkBars = false
var_Chart.AllowCreateBar = 0
var_Chart.BarsAllowSizing = false
var_Chart.AllowSelectObjects = 0
oG2antt.DrawGridLines = -1
oG2antt.ShowFocusRect = false
var_Columns = oG2antt.Columns
var_Column = var_Columns.Add("CA")
var_Column.Def(16,false)
var_Column.Def(17,1)
var_Column1 = var_Columns.Add("CB")
var_Column1.Def(16,false)
var_Column1.Def(17,1)
var_Items = oG2antt.Items
h = var_Items.AddItem("Address 1.1<br>Line 2.1<br>C1")
var_Items.ItemMaxHeight(h,96)
var_Items.CellValue(h,1,"Address 1.2<br>Line 2.2<br>C2")
var_Items.AddBar(h,"Empty",DateTime(2012-01-02,08:00:00),DateTime(2012-01-02,19:00:00),"A","This is a bit of text<br>being <font ;9>displayed ion the <b>bar A")
var_Items.ItemBar(h,"A",7,16777471)
var_Items.ItemBar(h,"A",4,0)
var_Items.ItemBar(h,"A",5,2)
var_Items.AddBar(h,"Empty",DateTime(2012-01-03,08:00:00),DateTime(2012-01-03,19:00:00),"B","<fgcolor=FFFFFF>This is a bit of text<br><fgcolor=FFFFFF>being <font ;9>displayed ion the <b>bar B")
var_Items.ItemBar(h,"B",7,33488896)
var_Items.ItemBar(h,"B",4,2)
var_Items.ItemBar(h,"B",5,0)
var_Items.AddBar(h,"Empty",DateTime(2012-01-04,08:00:00),DateTime(2012-01-04,19:00:00),"C","<font Tahoma;12><b>bar C")
var_Items.ItemBar(h,"C",7,33489151)
oG2antt.EndUpdate()
|